home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / util / cli / OneFont_v1_1.lha / OneFont / OneFont.install < prev    next >
Encoding:
Text File  |  1992-09-02  |  1.9 KB  |  53 lines
  1. ; $VER: Install_OneFont 37.2 (2/3/94)
  2. ;
  3. ; Install script for OneFont
  4. ;
  5. ; Distributed as a part of the OneFont archive.
  6. ; OneFont is Copyright (C) 1994 by Jan Skypala
  7. ; All righs reseredved
  8.  
  9. (set @default-dest "")
  10. (set old_level @user-level)
  11.  
  12. (set OneFont                     "OneFont")
  13.  
  14. (set #targetstr                  "In which directory should OneFont be installed?")
  15. (set #targetsel             (cat "\nPlease select the directory or partition in which you would like "
  16.                                  "OneFonts installed\n\nClick PROCEED to start the installation process.\n\n"
  17.                                  @askdir-help))
  18. (set #copying-OneFont            "Copying OneFont...")
  19. (set #fixing-ss                  "Correcting User-Startup file...")
  20. (set #startup-help          (cat "If User-Startup file will be changed OneFonts will be started every "
  21.                                  "time you boot so all programs will use new font instead of topaz.\n\n"
  22.                                  "Two things will happen:\n\n"
  23.                                  "· The Installer will check if your startup-sequence\n"
  24.                                  "  executes the file S:User-Startup, and will modify\n"
  25.                                  "  it to do so, if necessary.\n\n"
  26.                                  "· The Installer will look through the S:User-Startup\n"
  27.                                  "  file and insert the correct OneFont statements\n"
  28.                                  "  where appropriate.\n\n"
  29.                                  @startup-help))
  30.  
  31. (set @target-dir
  32.       (askdir
  33.              (prompt #targetstr)
  34.              (help #targetsel @askdir-help)
  35.              (default "C:")
  36.       )
  37. )
  38.  
  39. (copyfiles
  40.       (prompt @copying-OneFont)
  41.       (source OneFont)
  42.       (dest @target-dir)
  43.       (infos)
  44. )
  45.  
  46. (startup
  47.       ("OneFont"
  48.       (prompt #fixing-ss)
  49.       (help #startup-help)
  50.       (command (tackon @target-dir"OneFont"))
  51.       )
  52. )
  53.